`print.eqc` <-
function (x,...) 
{
	x$" " = constel(x);
	print.data.frame(x);
}

